SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE  Procedure [dbo].[SP_TCMOVI_CAJA_U03]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS                 --*/
/*---Sistema              : Tesoreria                  --*/
/*---M©dulo               : Empresa                    --*/
/*---Programa             : Actualizacion Tipo Operac. --*/ 
/*---                       Caja                       --*/
/*---Script               : tcmovi_b.sql               --*/
/*---Nombre SP            : SP_TCMOVI_CAJA_U03         --*/
/*---Desarrollado por     : Javier Flores A.           --*/
/*---Fecha Creaci©n       : 16/11/1999                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi©n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/
/*-------------------------------------------------------*/
/*---Modificado 1 por     :  Carlos R Marquez E        --*/
/*---Fecha Modificaci©n   :  30/05/2001                --*/ 
/*---Detalle Modificaci©n :  Considerac Docs en Cartera--*/
/*-------------------------------------------------------*/
/*-------------------------------------------------------*/
/*---Modificado 2 por     :  Miguel Carrasco        --*/
/*---Fecha Modificaci©n   :  02/07/2009                --*/ 
/*---Detalle Modificaci©n :  Considerac Docs en Cartera--*/
/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR TD_VC_002, 
 @ISCO_USUA_MODI TD_VC_008_USUA,
 @ISCO_TIPO_OPER TD_VC_003,
 @ISCO_SUBR TD_VC_003,
 @ISCO_CAJA TD_VC_008, 
 @ISAA_CAJA TD_VC_004, 
 @ISMM_CAJA TD_VC_002, 
 @ISTI_MOVI TD_VC_001,  
 @ISNU_COMP_CAJA TD_VC_008
	As
Declare  
 @VSST_AUXI_0004_NUEV TD_VC_001,  
 @VSTI_SITU 	   TD_VC_003

 Begin Tran SP_TCMOVI_CAJA_U03

  /***---Obtiene Flag de Cart de Clientes para el Nuevo Tipo de Operacion  ---***/ 
  Select @VSST_AUXI_0004_NUEV = ST_AUXI_0004
  From 	TTTIPO_OPER
  Where	CO_EMPR = @ISCO_EMPR
    And	CO_TIPO_OPER = @ISCO_TIPO_OPER

  /***---Seteo TI_SITU  en base al Flag del Tipo de Operacion  ---***/ 
  Select  @VSTI_SITU	= ( SubString ('CAR', 1, PatIndex ('S', @VSST_AUXI_0004_NUEV )*3) + SubString ('ACT', 1, PatIndex ('N', @VSST_AUXI_0004_NUEV )*3) )

  If Exists (Select CO_EMPR From TTCAJA_ANUL
	   Where   CO_EMPR = @ISCO_EMPR
	   And     CO_CAJA = @ISCO_CAJA
	   And     AA_CAJA = @ISAA_CAJA
	   And     MM_CAJA = @ISMM_CAJA 
	   And     TI_MOVI = @ISTI_MOVI
	   And     NU_COMP_CAJA = @ISNU_COMP_CAJA)
	Select @VSTI_SITU	= 'ANU'


   Update TCMOVI_CAJA 
   Set CO_TIPO_OPER = @ISCO_TIPO_OPER,
       CO_SUBR = @ISCO_SUBR,  	
	   TI_SITU = @VSTI_SITU, 
       CO_ORDE_SERV = NULL,	
       FE_USUA_MODI = Getdate(),
       CO_USUA_MODI = @ISCO_USUA_MODI
   Where   CO_EMPR = @ISCO_EMPR
   And     CO_CAJA = @ISCO_CAJA
   And     AA_CAJA = @ISAA_CAJA
   And     MM_CAJA = @ISMM_CAJA 
   And     TI_MOVI = @ISTI_MOVI
   And     NU_COMP_CAJA = @ISNU_COMP_CAJA

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End

   Update TTCAJA_ANUL Set CO_TIPO_OPER = @ISCO_TIPO_OPER,
          FE_USUA_MODI = Getdate(), CO_USUA_MODI = @ISCO_USUA_MODI
   Where   CO_EMPR = @ISCO_EMPR
   And     CO_CAJA = @ISCO_CAJA
   And     AA_CAJA = @ISAA_CAJA
   And     MM_CAJA = @ISMM_CAJA 
   And     TI_MOVI = @ISTI_MOVI
   And     NU_COMP_CAJA = @ISNU_COMP_CAJA

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End

  Update TCMOVI_CAJA
  Set ST_CONT = 'N',
      CO_USUA_MODI = @ISCO_USUA_MODI,
      FE_USUA_MODI = getdate()
   Where   CO_EMPR = @ISCO_EMPR
   And     CO_CAJA = @ISCO_CAJA
   And     AA_CAJA = @ISAA_CAJA
   And     MM_CAJA = @ISMM_CAJA 
   And     TI_MOVI = @ISTI_MOVI
   And     NU_COMP_CAJA = @ISNU_COMP_CAJA

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End

 Commit Tran

/*------------------------- Fin ------------------------------*/


GO
